home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2005 May
/
CMCD0505.ISO
/
Software
/
Demo
/
DesktopX
/
objects
/
Rubicon_meters.dxpack
/
{648D6717-0AF3-487D-B115-C8D9E62DF9D3}.DXScript2
< prev
next >
Wrap
Extensible Markup Language
|
2004-01-29
|
2KB
|
76 lines
<?xml version="1.0"?>
<!--DXScript Data File. Version 2.0-->
<DXScript>
<Script><![CDATA['Called when the script is executed
Sub Object_OnScriptEnter
If Object.LocalStorage("position")="in" Then SlideMe
i=1
Do Until DesktopX.IsObject("R_M"&i)=False
If Object.LocalStorage("hidden"&i)="yes" Then
DesktopX.Object("R_M"&i).Visible=False
End If
i=i+1
Loop
Shuffle
If Object.LocalStorage("position")="in" Then SlideMe
End Sub
Sub Object_OnStateChange(state)
If State = "Command executed" Then
SlideMe
End If
End Sub
Sub Shuffle
i=1
x=12
Do Until DesktopX.IsObject("R_M"&i)=False
If DesktopX.Object("R_M"&i).Visible=True Then
DesktopX.Object("R_M"&i).Left=x
x=x+DesktopX.Object("R_M"&i).Width-1
DesktopX.ScriptObject("R_M"&i&"t").Object.State="checked"
Object.LocalStorage("hidden"&i)="no"
Else
DesktopX.ScriptObject("R_M"&i&"t").Object.State="unchecked"
Object.LocalStorage("hidden"&i)="yes"
End If
i=i+1
Loop
If x=12 Then
x=59
DesktopX.Object("R_meters_splash").Visible=True
Else
DesktopX.Object("R_meters_splash").Visible=False
End If
DesktopX.Object("R_metersback").Width=x+10
End Sub
Sub SlideMe
x=Object.Left
If x=0 Then
dx=1
tx=70
Object.LocalStorage("position")="in"
Else
dx=-1
tx=0
Object.LocalStorage("position")="out"
End If
Do Until x=tx
x=x+dx
Object.Left=x
Loop
End Sub
'Called when the script is terminated
Sub Object_OnScriptExit
i=1
Do Until DesktopX.IsObject("R_M"&i)=False
If DesktopX.Object("R_M"&i).Visible=False Then
Object.LocalStorage("hidden"&i)="yes"
End If
i=i+1
Loop
End Sub
]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>423</EditorLeft><EditorTop>1</EditorTop><EditorRight>1179</EditorRight><EditorBottom>915</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>